AAAAAAAAA 

AARAAAARK 

AAAAAAABRA 
AA BAL 
ABL ABA 
ARR AAA 
AAA Aaa 
AAA ARA 
AAA AAA 
AAA ALA 
AAA AAA 
KAR ADA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
ALA AAA 
AAR AAA 
AAR Aaa 
AAA AAA 
Aha AAA 


POOOOOOIOOOOOIAIAS 
AOOOAOOOIAIOAOIOOIAOIS 
OOM OAOAIOAAIAAIAIAOOA 


KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKKKKKKKK 
KKKKKKKKK 
KKKKKKKKK 

KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 


UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UYUUUUUUUUUUUUUU 
YUUUUUUUUUUUUUU 
UUUUUUUUUUUUUU 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
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SSSSSSSS TTTTTTTTTT AAAAAA BBBBBBBB AAAAAA 
SSSSSSSS TITTTTTTTT AAARBA BBBBBBBB AAAAAA 
SS TT BA AA BB BB AA AA 
$$ TT AA AA BB BB AA BA 
SS TT kA AA 8B BB AA AA 
SS TT AA AA 88 BB AA aa 

SSSSSS TT Ba AA 88888888 AA AA 
SSSSSS TT AR AA 88888888 AA AR 

$$ TT AAAAAAAAAA 8B BB AAAAAAAAAA 
SS TT AAAAAAAAAA BB BB AAA 
$$ TT AB AA 8B BB AA AA 
SS TT AS AA 8B BB AA BA 

SSSSSSSS TT AB AA 688888888 AA AK 

SSSSSSSS TT AA AA B888B8B8B AA AA 

LL III! SSSSSSSS 

LL HII SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] Ss 

LLELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 


POMAMOAMOOMOIE? 
AAMAQOAAOOS 
AOAMAAIOAAOe 
AOA 


STABACCOP 
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i AUTHOR: M. Jack, CREATION DATE: 16-Sep-1982 
i MODIFIED BY: 


v03-002 cuisece Cw Hobbs ct-1983 
hange CTG to CBT so that a segmented SYS does A 1 to 
be contiguous. 


v03-001 CWH3001 CW Hobbs Sepa3tes 
Add the ability to segment a file, specifically - t 
SYS.EXE can be split across two volumes. 


Copy image file for Standalone BACKUP kit 16S -1984 2 Ax-11 Bl ise -3 
. 12-8ep-1984 99: 3f: §¢ BACKUP, SRC ST 
1 MODULE STABACCOP(ZTITLE Thakbeas image file for Standalone BACKUP kit‘ 
§ MAIN = ST ee St ' 
IDENT = ‘V04- 
004 )= 
44 } BEGIN 
0007 1! 
si : Yee RRR AEAAAAAAAAAAAAERAAAAAAEAAAAEAAAEAEA AERA AAAAAAAAAAEEERAAARAKEREEAEES 
'‘@ H 
0010 1 !* COPYRIGHT (c) 1978, 1980, 1982. 1984 B * 
11 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ® 
oie : is ALL RIGHTS RESERVED. * 
, ® 
14 1! pnts ie IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0015 1 !* ONLY IN ACCORD ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
Botg 1 !* INCLUSION OF THE ABOVE conznieut NOTICE. THIS SOFTWARE OR ANY — * 
0017 1 !* COPIES PHEREOF nig NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
goi8 1 !® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$4 : :* TRANSFERRED. * 
if ® 
0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 § 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
a8 : we CORPORATION. * 
ie ® 
0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
a § : . SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: ® 
0028 1 !* * 
ge > 4 PITITITIIILILLIT LLL LLL LLL LLL LLL LLL LLL LLL iLL 
1! 
0031 | 
$74 1 !+¢ 
BSE Fate at utili 
! Sale u y programs. 
0035 1! 
0036 1 ! ABSTRACT: 
0037 1! This program copies an image file, deleting the appended patch text. 
54 : It is used and supported only for generation of Standalone BACKUP kits 
0040 1 | ENVIRONMENT: 
re 1/ VAX/VMS user mode. 
O4¢ 1 leo 
0 1: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
{ 
1 


AUilWN OC OONOus 


ooo 
ooo 
a aalabad 


2V 
ABA 


4.0-7 
ccop. 3 231 
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iieActor Copy image file for Standalone BACKUP kit 15-Sep-1984 99: qi: $¢ AX-11 Bliss-32 V 


0-74 p 
10-Sep=1 BACKUPCSRESSTABACCOP B82; 1 om of 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0071 1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


LIBRARY ‘SYSSLIBRARY:L1B'; 


LITERAL 


am 
.” 


STRUCTURE 


o— 
ees 


BBLOCKLO,P,S,E;NJ= 
(BBLOCK + 0)<P,S,E>; 


FORWARD ROUTINE 
STABACCOP, 
FILE_ERROR: 

EXTERNAL ROUTINE 


LIBSGET SS whee 
OTSSCVT TILL 


NOVALUE ; 


ADDRESSING_MODE (GENERAL) , 
ADDRESS ING_MODE (GENERAL) ; 
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STABACCOP C image file for Standalone BACKUP kit 1a-Se -1984 00:57:22 AX-11 Bliss-32 V4.0-74 Page 3) 

a . 12-8687138e 90: 4:04 EBACKUP.SRe STABACCOP B92; 1 . = 
; 89 ‘ } ROUTINE STABACCOP= 
; 1 !+ | 
; wh 1} 
3 35 090 1 ! FUNCTIONAL DESCRIPTION: 
7 2 91 1: This routine is the main entry point for the STABACCOP program. It 
3; O36 ; ! copies an image file, ewes bam the appended patch text. It is used and 
; ak ; : supported only for generation of Standalone BACKUP kits. 
; 37 0095 1 | INPUT PARAMETERS: | 
3 oS > ; Standard VMS activation parameters (not used). 
: 100 98 1 1 IMPLICIT INPUTS: | 
: 101 99 1! NON 
; 19¢ 0100 1! 
; 10 0101 1 ! OUTPUT PARAMETERS: 
; Ive B13 1! NONE . 
s We 103 1! 
> 106 1046 1 ! IMPLICIT OUTPUTS: | 
; 107 105 1! NONE 
; 108 196 1! 
; 109 0107 1 ! ROUTINE VALUE: 
; 110 gine 1! Completion status. 
: (111 0109 1! 
3 Ne 8119 1 ! SIDE EFFECTS: 
, TT 0117 1! NONE | 
3 114 Oil 1 | 
3 6115 11 1 !=- | 
: 116 0114 1 
s 17 0115 2 BEGIN 
; (118 0116 LOCAL 
; T9 0117 COMMAND DESC: BBLOCKCDSC$K_S_BLNI, ' Descriptor for command buffer 
: 120 0118 INF ILE BESC: BBLOCKCOSCSK_S_BLNJ, ' Descriptor for input file name | 
3: 121 0119 OUTFILE DESC: SBLOCKCDSC$K-S"BLNJ, ' Descriptor for output file name 
2% § 3is9 VAL_DESC: BBLOCK o3ssx $ , " ! Descriptor for numeric value 
s 135 ois! COMMAND _BUFFER: VECTORC152,8Y9TE), comand eo. | 
Py ° - FOTN 
i fee eee pee LO TREES Hse ane | 
> 127 0195 INPUT_XAB: SKABP HE DECL. i File header XAB for input file | 
3 ‘$8 34 $ abut tae ieee RANGC MARES BYTE). ’ Resultant string for input file | 
3 FAB: ‘ P ! or outpu 
2 ee GUTPUT AAG: SAG BELL AAR fee output fiLe | 
; 13 130 OUTPUT"RSA: VECTOR NAMSC_MAXRSS BYTE), ! Resultant orien for output file | 
; : . ! Return esses from 

13 13 ay vecronta) egurnaaaresges om Schr 

; 135 0138 IHP: REF BBLOCK, i Pointer to IHP | 
3 136 1 FILE SIZE ' Size of file copied 
: 13 135 BLOCRS_LEFT, i Number of blocks left to copy | 
Vig) Ok SA aA Size amanyay covoonn, | Sater ettadaumpere’ 0 66 wen 
: 140 1 3 INPUT_RSA_DESC: veCTOR }. " i Descriptor for input RSA 
3: «141 1 OUTPUT_RSA_DESC: VECTOR(2), : Descriptor for output RSA 
: 123 124 STATUS=2: ib Seas Geneen | 
3 (144 0142 LITERAL 


K 14 


STABACCOP Copy image file for Standalone BACKUP kit -Sep-19 2 Ax-11 Oi iss -32 v4.0- Pa 4) 
1ea8een 138s 99:82:82 — HaNcRe Shes sPaakced o$2-1 3) 
1é2 FACILITY = 103; ! Steal COPY's prefix | 
4 
48 Get the foreign command Line. It must be of the form 
4 } <input-Tile-specification> <space> <output-file-specification> {C <space> <start-vbn> <space> <segmen | 
24 COMMAND -DESCCOSCSW -LENGTHI = ZA Ce eet BUFFER); 
2g COMMAND_DESCLDSC$B_DTYP EY = DSCSK 
COMMAND_DESCLDSC$B_CLASSJ = DSCS$K- att “S; 
34 COMMAND-DESCCDSCSA_POINTER] = COMMAND OFFER 
5 STATUS_T = L1eSeer FORE GNC COMMAN ND DE C, 0, Ri OMMAND DESC); 
2$ IF NOT .STATUS_ TREN RETURN .STA TOS_ H 
8 
9 


wey 


Locate the space between the input and output file specifications. 


P= SHSEIND . oe COMMAND “PEsctosceu LENGTH. - COMMAND _DESCCDSCSA_POINTER], %C* '); 


F .P Then e Kody : $ 2PA0 

nite’ ekse DSCSW - SRT OMMA ait: COSCSA_POINTER]); ! Set input name 
INFILE gest. DSCSA_ SNR TER]. = “TCOMRAND "Dest DSCSA_POINTERI; 

COMMAND. D DSCSA_POINTER) = .P + 1; e input name 


COMMAND — ~DESt tit LENGTH] = * COMMAND DESC COSCSW_LENGTH] - 1 - -INFILE. * bese “tbscs LENGTH); 
' Locate the output file spec 


. CSF IND _ CH(.COMMAND_DESCCDSC$W_LENGTH], .COMMAND_DESCCDSC$A_POINTER], %C° ‘); 
THEN 


| 
| 
| 
| 


No optional numbers, the rest of the command string is the output file name 


OUTFILE_DESC CDSC$W_LENGTH] = .COMMAND DESC CDSC$W_LENGTHI; 
a as. “DESC CDSCSALPOINTER] = .COMMAND_DESC CDSCSA_POINTER); 


co AANS i SPAOAAS 


SOSSGSGOOSOOOOSOCOOSOSOS OOOO OGOOSCooocoooooooooooooOoOoooOOoOoOoOOOoOOOOoOOoOOo 
Co: C9 O90 0909 SINISE SSA AAA AAA AA AMAA ££ EE 
SELESLISLSSSELSARANALSSSVSASANASSHISALERVIS SSIS ALUN AS Ooo woes 


Dee ee ee ee ee ee en en ee i ee ee ee ee ee ee ee ee 


Be Se Os Oe Os Oe Se Se Be SF Se Se Fe Ss OF Se Ge Se Ge SF HS SE Ge Be FO Ge OHSS Se Oe Se BF Ss Ss Oe Se Se Ge SF Se SF He SHS 5 Oe Se SHH) He SF es Se SESH Sees 


ELSE 
BEG! 
FILE_DESC COSC$W_LENGTH] = . COMMAND DESC CDSC$A_POINTER]; ! Set = name 
OUTFILE-DESC CDSCS$A_POIN NTER} = “COMMAND _DESC COSCSA_POINTER); 
C D-DESC CDSCSA_POINTER) = ; ! e input name 
85 COMMAND_DESC CDSCSWILENGTH] = COMMAND. DESC CDSC$W_LENGTH] - 1 - .OUTFILE_DESC writes oh LENGTH; 
ey Now get the two optional numbers 
89 4, CHSF IND _CH(. COMMAND _DESCLDSC$W_LENGTH], COMMAND _DESCCDSCSA_POINTER], %C' '); 
91 “f 
% RETURN SS$_BADPARAM; 
9 VAL_DESC psc $a LENGTH]. = .P = .COMMAND DESC CDSC$A_POINTER]; ! Set input name 
194 VAL-DESC EDSCSA-POINTER) = COMMAND _DESC COSCSA_POINTER); 
195 COMMAND _DESC CDSCSA_POINTER) = .P #71; input name 
196 COMMAND-DESC CDSCSW7LENGTH] = .COMMAND DESC CDSC$W_LENGTH] - 1 - .VAL_DESC toscsue LENGTHS 
132 4 if war TSTATUS_1 = Ors TSSCVT_TI_L (VAL_DESC, START_BCK)) 
199 RETURN .STATUS. 1 
300 IF (START BLK = .START _BLK-1) LSS 0 


14 
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Oe oP Copy image file for Standalone BACKUP kit 18-Se0-1984 90: 37:6¢ AX-11 Oi ies 3 


Pa 5 
BACKUP. SRC 9 63} 


2 Pe ie 
STABACCOP.8352;1 (3 


|) 


: 20 9 RETURN SS$_BADPARAM; 

; 03 IF NOT (STATUS-1 = OTSSCVT_TI_L (COMMAND_DESC, SEGMENT_SIZE)) | 
3 205 4 yp RETURN -STATUS_1; 

; 0 5 , 

: oS : Open the input file. 

: 210 020 $F AB_ INIT(FAB=INPUT_FAB | 
: 211 P BNA=UPLIT BYTE(*.EXE"), 
; 1 P 0210 DNS=%CHARCOUNT(" EXE), 
> 21 Poet ENA=. INFILE_DESCEDSC$A POINTER], 
> 914 P Ost¢ FNS=. INF ILE-DESCLDSCSW-LENGTH], 
: 215 P 021 FOP=UFO, 
: 216 Pp 9 14 NAM=INPUT_NAM 

: 217 15 AB=INPUT~XAB) ; 

; 218 P 0216 2 SNAM_INIT(NAM=INPUT_NAM, 

: 219 Pp 6 17 =INPUT_RS 

; 220 18 RSS=NAMSC-MAXRSS) ; 

3 221 021 SXABFHC_INIT(RAB=INPUT_XAB) ; | 
; 358 9 20 IF NOT SOPEN(FAB=INPUT_FAB) 

3 r 0332 FILE_ERROR(FACILITY°16 + SHRS_OPENIN + STSSK_SEVERE, INPUT_FAB, INPUT_FAB); | 
: 226 | 0224 

; 236 $5 5 ! Ensure that the file has ap rges ‘ate characteristics for an image file: 
: $$6 03 § : sequential with fixed length 512 byte records and no record attributes. 
; 386 0228 2 IF .INPUT_FABLFABS$B_ORG] NEQ FABSC_SEQ 
3: 231 Og 9 2 OR .INPUT-FABCFABSB_RFM) NEQ EABSCIFIX 
: 332 0230 2 OR .INPUT-FABCFABSW_MRS) NEQ 51 | 
3 33 0231 OR. INPUT_FAB FABSB_RAT] NEQ 0 

i 935 0538 BEGIN | 
: 2 Og3h INPUT _FABCEABSL_ STS] = $S$_BADIMGHDR; 

; 337 235 INPUT-FABCFABSL-STV) = 0; 

3 38 0236 FILE ERROR (FACICITY"16 + SHR$_OPENIN + STSSK_SEVERE, INPUT_FAB, INPUT_FAB); 

EA bee 

: "1 40 1 Map the file into memory. | 
: 266 P 0 4g STATUS_2 = SCRMPSC 
> 245 b 8 4 INADR=UPLIT(O, 0), 
: 246 P 0244 RETADR=RETADR 
3 267 P 0245 FLAGS=SECSM_CRF OR SECSM EXPREG OR SECSH_URT, | 
> 248 46 CHAN=. INPUT-FABCFABSL_STVJ); 
; 249 4 IF NOT .STATUS_2 
: 250 48 2 THEN | 
: 251 49 BEGIN 

; 2¢ 50 INPUT FABEFABSL_S1S1 = ,STATUS_2; 
: 25 51 I ABLFABSL-STV) = 0; 
; 22 26 FILE_ERRORCFACICITY" 16 + SHRS_OPENIN + STSSK_SEVERE, INPUT_FAB, INPUT_FAB); 
i of Rae 
: 258 56 ! Examine the image header to determine the location of the patch text. 
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STABACCOP Copy image file for Standalone BACKUP kit 16-Sep-1984 00:57: AX-11 Bliss-32 V4.0-7 Page 6) 
Oe ° eons ri Se es Sa et er ere oe 9 «3) 

59 7 ! 

60 IHD = .RETADRCO); 

61 IF .ITHDCIHD$W_PATCHOFF] NEQ 0 

6 THE 

6 BEGI 

64 1HP 5 fH + . IMDCIHDSW PATCHOFF; 

65 1 HPCIHPSL_PATCOMTXTI N 


P W FFB 
PLIRPSL Par PATCOATXT 


| 
| 
| 
| 
END: | 

: Determine the size of the output file 
thei XABLXABSW_FFB) EQL 0 | 

NPUT_XABCXABSL_EBK] = .INPUT_XABCXABSL_EBK] - 
; Create the output file. 

| 


PUT_XAB rierrt tts Fre] = §: = * sgalozai -PATCOMTXTI; 


SSNS SSNS 
wr 


SSSLEARAN AS SANON 
MPINIFUIPONINONOPORoTonorny 


10909 C969 SII SIS NN NNO AA AOA OOOO 
WN —O OONAULSWUN “OO CONOUS WN OOo 


Five! nSTE™ = MIN ((. INPUT _XABLXABSC -EBKI-.START ott} * SEGMENT SIZE); 
éFaB INIT(FAB=OUTPUT_FAB, 


RLQ=.FILE_S1Z 
DNA=UPLIT BYTE(* EXE" ‘. 
DNS=ZCHARCOUNT ("EXE"), 


FAC=BI0 
FNA=.OUTFILE BESEERS CSA_POINTER], 
FNS=.OUTFILE DESCLD 

FOP=<CTG 


MOPOTURONORORIPONOPoToToPourneny 


CSWULENGTHI, 


SSBLSEAR 


MRS= 
MRSS 20 wan 
ORG=SEQ 


RFM=FIX);: 
$RAB_INIT(RAB=OUTPUT_RAB, 
FAB= =SUTeU PUT 


MON! 
woo 
wr 


ronony 
APUNVAOCSSIS AR AVI OOR RAE 


MIPIPOPOPOPUNOPOPINPoONy 


wooovnono 


S8eLe 


Oooo 


Wh — 


VEWN 


ROP=B10 
SNAM_ INI T(NAM=OUTPUT _NAM, 
RLF=INPUT 


oO 
—_ 
vvuy VU VuUUVUUVUVVVVUUD 
SOOCCOOOSOOOOSOSOOOSSOSOSOSSSOOSOOCOCOOOOSOSCOOOOOOOOOOOOOOoOOO 


RSASOUTPUT RSA, 
thei STze NEQ b9999 ! If segmenting, then don't need contiguous 


butPur FAB CFABSV_CTG FALSE; 


| 
‘ 
| 
OUTPUT-FAB CFABSV=CBT) = TRUE: | 
FN NOT $CREATE(FAB=OUTPUT_FAB) | 
j 
| 
| 


SS5z 


tr. A.ANAS 


Soooooo[eoeo 


08 NFILEERROR(FACILITY“16 + SHRS -OPENOUT + STSSK_SEVERE, OUTPUT_FAB, OUTPUT_FAB); 
09 1F Not S$TONNECT (RAB=OUTPUT_RAB) 

1 FILE_ERROR(FACILITY°16 + SHR$_OPENOUT + STSSK_SEVERE, OUTPUT_FAB, OUTPUT_RAB); 
1 
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V04= wi Aig 1e=gee= 138s FRc :6e | HeKth lO SheSs#eaxceae as2.1 


$ 18 13 H Write the output file. 

; 18 1 ouTPUT T_RABCRABSL RB REF = (,IHD + (.START_BLK#512)); 

: 31 1 BLOCKS"LEF 126; 

3 Y 18 WILE” 2B BLOCKS iett at} DO 

; : 0 TBAT 

i 325 ‘ 1 BLOCKS; 

: 325 0 g BLOCKS = MIN(. BLOCKS LEET, 127); 

: 326 4 BLOCKS_LEFT = .BLOC CKS_LEF BLOCKS; 

: 327 9 5 oy TPUT-RABLRABSW_RSZ Ft cette * 512; 

: 8 03 6 i Ten T"SURITE (RAS=OUTPUT “ RAB) 

; $3 0328 FILE ERROR(FACILITY*16 * SHRS WRITEERR + STSSK SEVERE, OUTPUT FAB, OUTPUT_RAB) ; 
; 3 05 3 QuTPUT_ RABCRABSL_RBF) = .OUTPUT_RABLRABSL_RBF] + .OUTPUT_RABLRABSO_RSZ); 

; 38 0331 

: 0 3 

3 336 Osa7 } Close the output file. 

; 337 0335 IF NOT $CLOSE(FAB=OUTPUT_FAB) 

; 339 0337 FILE_ERROR(FACILITY°16 + SHRS_CLOSEOUT + STSSK_SEVERE, OUTPUT_FAB, OUTPUT_FAB); 
gs 8 By es ws soe 

° oO e copied message. 

: 33 “si. , . 

: 344 0348 INPUT_RSA A-DESCEOI = .INPUT_NAMCNAMSB_RSLI; 

> 345 034 INPUT"RSA-DESC(1] = . INPUT NAMCNAMSL RSA); 

: 346 0344 2 OUTPUT_RS RDESCLOI =" ,QUTPOT_NAMCNAMSB_RSLJ; 

: 347 0345 2 OUTPUT~RSA-DESCL1] = .OUTPUT~NAMCNAMSL RSA): 

; 348 0546 SIGNALTFACILITY“°16 + SHRS$_COPIEDB + STSsk _SUCCESS, 3, INPUT_RSA_DESC, OUTPUT_RSA_DESC, .FILE_SIZE); 
; 369 0348 

s 3531 0349 ' Return with success. 

; 332 0350 : i 

: 35 0351 sss. -NORMAL 

> 354 0352 1 END 


-TITLE STABACCOP Copy y image file for Standalone BACKUP 
; IDENT \V04-000\ 


~PSECT CODE,NOWRT,2 


58 45 2E€ 00000 P.AAA: .ASCII \.EXE\ : 
0000000 00000000 00004 P.AAB: .LONG . : 
58 45 2E€ QOO0C P.AAC: .ASCII \.EXE\ : 


git Lipset. FOREIGN 


PAA GA 
Con 
-onm< 
oz —_ 
“2 

m 

o 

ts 

> 

< 

mn 

ad 

< 

Zz 


Copy image file for Standalone BACKUP kit 


FC 


FO 


nan 
Oo 


anh 
oo 


EO 


F8 


AD 


AD 
BD 


AD 


AD 


AD 


AD 


F8 


000000006 


F8 


nn 
os 


F8 


mm 
ac 


“rm 
ono 


F8 


“mn 
os 


9 000000006 00 
dee 
AE 0001863 er 
AD 010E0084 F 
AD FF5C 86 CD 

FB AD 

7E 

F8 03 
bate 

§ 0 
0 52 

OOBA 

AD 20 

02 

51 

51 

66 

51 FC AD 

AD FC AD 
AD 01 Al 

50 F8 AD 

53 FO 8 AD 

50 53 
50 01 

AD 20 
02 

51 

51 

oc 

AD F8 AD 
AD FC AD 
76 

51 FC AD 
AD FC AD 
AD 07 Al 
50 F8 AD 
53 eB A 
50 5 
50 01 
ae & 
31 

1 

51 FC AD 

AD FC AD 
AD 01 Al 

50 43 AD 

51 E AD 
50 51 
50 gt 
E 

EO AD 

69 02 


tk 


-Sep-1984 2 YY 27 


-Sep-1984 


03FC 00000 — . 


E 0090 


COOCoCoCoooooooooooooooooooo 
SOOCOCCOCOSCOOOOOOOOOOOOCoOOooSSoO 
SIN NIAAA MME & EE EF EWI OO 


RMON DONUTS NW SPUIMO DW ON MD O—- MO OWN 


SOSOSSOSOSOOOSOOOOOOOO 
SSOSOSSCOSOSCOSOSOOOSO 
Q>> PH OOV@aanss 
—nNOR=0 


Oo 
oo 
ow 


DMOWUNO SOMONE VF ANO OMOW QOL VF WNVOOMOWWMEN S “WOOD Lf "MoOoOmMm 
oo 
Oooo 
Ono 


NOS POUWOS PF 9 ("WI POWWOS P 9D $9 9 SW POWWOS P99 SWUM NOT OOTTO 


SOoOoOOoooooooooooosoooooooooooooooooooooooOoOoOoOoooooooO: 


2$: 


3$: 


4$: 


5$: 


:¢¢ AX-11 Oh ieee eit mis 
BACKUP.SRCJSTABACCOP.B52;1 


R 
OR; RB 
) 
spot 1 Size 

AND _D 
0 y CORMAND _DESC+4 
COMMA 


COMMA ESC 
MTBSCET FOREIGN 
RO, rt be S_T 
STAT . $ 

gee. COMMAND _DESC. @COMMAND_DESC+4 


R1 
Pp 


6$ 

COMMAND _DESC #4, P, INFILE DESC 
OMMAND DESC+4, INFILE_DESC+4 
1(R1), COMMAND _DESC+4 


COMMAND DESC, al’ 
a, RO” Desc, 


RO, COMMAND_DESC 
£38, COMMAND_DESC, @COMMAND_DESC+4 


RI) 
COMMA 
Tete. DESC, R 


RO, COMMAND_DESC 
x, COMMAND_DESC, @COMMAND_DESC+4 


$ 

COMMAND atta e 7 VAL_DESC 
VAL_DESC+4 

“DESCT4 


a st, R1 
1; RO, COMMAND_DESC 


VAL_DESC 
#2, OTSSCVT_TILL 


Pe Pe Se Se Se Se See Se Ge Se Ge Se Ge Se Se Fs He Se Se Ge Ge Ge Se Ge Ge Ge Be Se Sse Se Se Se Se Se Se Se Be Se Se Se Se Be Be Se Se Ge Se Be Se Be Se Se Se BeBe 
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STABACCOP Copy image file for Standalone BACKUP kit 16-Sep-1984 257: AxX-11 Bliss-32 V4.0-74 
y04e000 . 14- ats 1 90:27:86 YBACKUPSRe STABACCOP.B32;1 
52 0 DO 000DF MOVL RO, STATUS_1 
16 29 Pg a0 BLBC  STATUS_1, 9$ 
g4 6E F4 OO0E SOBGEQ START BLK, 8$ 
0 14 i O0E 7$: MOVL #20, R 
04 AE OF OoEC 83 PUSHAB SEGMENT_SIZE 
F8 AD OF OOOEF PUSHAB COMMAND DESC 
69 0 FB ore CALLS #2, OTSSCVT_TI_L 
52 50 DO O00F OVL STATUS_T 
04 5 Es 00F8 BLBS § STATUS_1, TOS 
50 52 DO O0OFB 9S: MOVL § STATUS-1, RO 
04 OOOrE RET 
0050 «BF 00 6E ~*~ 00 ¢ OOFF 10$: MOVCS #0, (SP), #0, #80, SRMS_PTR 
FFOC CD O08 8F BO 80199 MOVW #20483, SRMS_PTR 
FF10 €D 00020000 8F D0 00110 MOVL #131072, $RMS_PTR+4 
FF22 CD 02 90 00119 MOVB a2, $RMS_PTR+22 
FFOB CD 02 90 OO1ig MOVB #2. $RMS~PTR+31 
FF30 3s CD FE80 CD 9€ 001 MOVAB INPUT_XAB, S$RMS_PTR+36 
FF34 CD FEAC (CD 9E OO12A MOVAB INPUT"NAM. $RMS~PTR+40 
FF38 CD F4 AD DO 00131 MOVL  INFILE_DESC+4, SRMS_PTR+44 
FF3C CD FEBS CF 9E 00137 MOVAB P.AAA, SRMS_PTR+4 
FF40 © CD FO AD 90 0013E MOVB  INFILE DESC; $RMS_PTR+52 
FF41 CD 04 90 00144 OVB #4, $RAS_PTR+53 
0060 8F 00 6E 00 2C 00149 MOVCS #0, (SP)> #0, #96, SRMS_PTR 
FEAC CD 00150 
FEAC CD 6002 8F B0 00153 MOVW #24578, SRMS_PTR 
FEAE CD 01 8E OO15A MNEGB #1, $RMS_PTRT2 
FEBO CD 0214 CE 9E 0015F MOVAB INPUT_RSA, $RMS_PTR+4 
2c 00 6E 00 2C 00166 MOVCS #0, (SP), #0, #24, SRMS_PTR 
FE80 CD 00168 
FE80 CD 2C1D 8F B80 00166 #11293, SRMS_PTR 
FFOC CD 9F 0017 PUSHAB INPUT_FAB 
000000006 00 01 FB 00179 CALLS #1, SYSSOPEN 
11 50 £8 00180 LBS =—s«RO, 118 
FFOC CD SF 00183 PUSHAB INPUT_FAB 
FFOC CD 9F 00187 PUSHAB INPUT~FAB 
0067109C 8F DD 00188 PUSHL #6754260 
68 03 FB 001 1 CALLS #3, FILE_ERROR 
FF29 CD 95 00194 118:  TSTB  INPUT_FAB+29 
16 12 00198 BNEQ 
01 FF2B CD 91 OO19A CMPB  —s INPUT_FAB+31, #1 
OF 12 0019F BNEQ 
0200 8F FF42 cD B1 1A CMPW NPUT_FAB+54, #512 
6 12 001A8 BNEQ 
FF2A CD 95 OOTAA TSTB NPUT_FAB+30 
1B 13 OO1AE BEQL 
FF14 CD 44 8F 9A 001B0 12$ MOVZBL #68, INPUT_FAB+8 
FFI8 CD p4 01B6 CLRL _‘INPUT_FAB+T2 
FFOC CD 9F OO1BA PUSHAB a 
FFOC CD 9F 001B PUSHAB INPUT"FAB 
0067109C 8F DD OOIC PUSHL 67 4260 
68 03 FB OO1C CALLS #3, FILE_ERROR 
— 7C OO1CB 13$:  CLRQ -<(§P) 
7E 7C€ 001CD CLRQ = = (SP) 
FFI8 cD bp O1CF PUSHL INPUT_FAB+12 
E 7C 00103 CLRQ.  =(SP) 


Pee Se Se Ge Se Ge Se Fe Fe Fe Se Ge Se Fe Fe Ge Ge Se Ge Se Ge Ge Fe Ge Ge Ge Se Ge Be Se Be Se Fe Fe Ge Se Se Fe Be Be Se Fe Ge Se Fe Fe Fe Be Se Se Ge Ge Se Be Se Se 


D 15 
-Sep- 57: - - 4.0-74 Page 10) 
WOeeO00” rego eapg 3 ba ene scromecenne emg! 1er8ee= 188s 99:86:62 FeAckup’seeistaanctor.o$2-1 aid 
RL -(SP) ; | 
aoozo0on fF > B3187 © BUEN HS ee 
40 i OF 1DF PUSHAB RETADR 3 | 
FEOE CF OF te PUSHAB P.AAB ; | 
000000006 00 ‘ ¢ OiE6 CALLS wiz. SvsscRmpsc a247 
tb 3 i tid MOVL § STATUS~2, INPUT_FAB+8 ; 0250 
dig FFI8 CD D4 ifs LRL _—s INPUT _FAB+12 : Og3) 
FFOC CD OF ait BUSHAB INPUTF AB ; | 
o067109¢ SF DD 00201 PUSHL ner sateo eas 
48 03 FB 00207 CALLS #3, FILE_ERROR F nose 
56 18 AE DO 0020A 14$:  MOVL  RETADR, THD : 0358 
08 A6 83 0020E ist B< IHD) ; | 
50 08 he i $0 13 MOVZWL 8(IHD), IHP ; 0262 
50 56 CO 00217 ADDL2 HD 1HP ; onss| 
20 AO DS OOZIA TSTL 2(fHP) : 
Ob he poste Bove $3E up) INPUT_XAB+16 : 0266 
sie ress é o? §055 CE RY INPUT XAB+20 ~ ; 0267, 

R 2(1H : 
ress i Be a09¢¢ 15$ 1st INPUT _XAB+20 ; a 
Fe90 6D OF OOH. DEEL, IMRUT ABIES ag : 0376 
ee ee $6 bi oosse CHL” RO, SEGMENT_SIZE~ ; | 
50 04 AE 13 igre BOVE SEGMENT SIZE. RO ; | 
0050 8F 00 ae 30 Bt 00943 _ moves #0, (SP)> #0, #80, SRMS_PTR ; 0292 
01c4 «CE 00250 ot 98 | 
Bits fe 388 HH Ht bo58K MOVE sere ouaa SRMS_PTR+4 ; | 
Sibe tf ee 57 DO 00263 MOVL FILE_SIZE. SRMS PTR+16 2 | 
O1DA CE 20 90 00268 MOVE ‘ . ; | 
O1E1 CE 94 00260 CLRB = $RMS_PTR+ ee ; | 
Clee CE 120 Ce SE 00976 MOVAB OUTPUT NAR, “SAMS, PTR+40 ; | 
th tf . EC AD DO 0027D MOVL QUTFILE DESCe4, SRMS_PTR+GG F | 
pita te og hb 5 § ge nove OiTrice Dest, SRMS_PTR+52 : | 
179s 4 90 00 V 153, ; | 
GFA fE 0200 ; 6 : ROVeS HOTUsPS RO acs, srés_pTR : 0295, 
Dee a t 9150 cE hs “an 9, $RMS_PTR ; 
t 4 fe 0800 HH 4 6 ‘S HOV ZL #2048, $RMS_PTR*4 ; | 
eat aoe? Eat BE ROVCS #0, (SP). #0, #95, SRAS_PTR : 0299. 
~ Pe o ett cE 2 sales SRMS_PTR ; | 
oh BR BF aan i  gosce ANEGB #1. SRAS PTRE : | 
61 20 AE 9E D1 MOVAB OUTPUT RSA, SRMS_PTR+4 | 
0180 7: FEAC CD 9 0207 MOVAB INPUT RAM SRMS _PTR#16 Sea 

0001869F BF 04 AE D1 OO2DE CMPL § SEGMENT_SIZE, 


| 
J 


15 

STABACCOP Copy image file for Standalone BACKUP kit 1b-$2 -1984 257: AX-11 Bliss-32 V4.0-74 Page 11 
v04 others ‘ 12288-1986 90:32:88 EBACKUP. SRe STABACCOP.B32;1 
A 13 OO02E BEQL 18$ ; 

1CA CE 19 A EB Bi C82 ig. OUTPUT_FAB+6 + 0303) 

A en 3 188:  pusnaB OUTPUTeTAB Te : O86. 
000000006 90 oj FB 0 r6 CALLS #1, SYSSCREATE : | 
o1ce te OF 00 PUSHAB OUTPUT_FAB > 0308 | 

C18 cE OF PUSHAB OUTPUT~FAB : 
006710A4 8F DD 00308 PUSHL #6754488 ; 

68 03 FB OF CALLS #3, FILE_ERROR : 
0180 CE 9F 00311 19$: | PUSHAB OUfPUT_R + 0309 | 

000000006 00 gi Fe 0 15 CALLS #1, SYSSCONNECT : 

11 0 f 1¢ BLBS RO ; 

0180 CE 9F OO3IF PUSHAB OUfPUT_RAB : 0311) 
01C8 CE 9F 00323 PUSHAB OUTPUT~FAB : | 
006710A4 8F OD 00 7 PUSHL 46754 : 

68 03 FB 0032D CALLS #3, FILE_ERROR : 

50 6E 09 7 003 0 20$ ASHL. #9. START BLK, + 0316 
01a8_ «CE 50 56 C1 00334 ADDL3 IHD, RO, OUTPUT RAB+40 ; 

52 57 00 003 A VL FILE SIZE, BLOCRS_LEFT + 0317) 

52 D5 0033D 21$:  TSTL  BLOCRS_LEFT ; 0318 | 

46 15 0033F BLEG 24$ F | 

50 52 DO 00341 MOVL § BLOCKS LEFT, RO ; 0323) 

0000007F &F 50 D1 00344 CMPL RO, #12 : 

04 15 00348 BLEG 22$ : 

50 7F BF 9A 00340 MOVZBL #127, RO ; | 

52 50 ce 0351 22$:  SUBL BLOCKS BLOCKS_LEFT t 0324 | 

O1A2 CE 50 0200 BF AS 00354 MULW3 #512, BLOCKS, OUTPUT_RAB+34 : 0325 | 
0180 CE 9F 0035¢ PUSHAB OUTPUT RAB : 0326) 

000000006 00 01 FB 00360 CALLS #1, SYSSWRITE : | 

11 50 £8 00367 BLBS RO, 23 : 
0180 CE SF 0036A PUSHAB OUTPUT_RAB + 0328 
01C8 CE 9F 0036 PUSHAB OUTPUT~FAB : 

00671004 8F ODD 0037 PUSHL #67549 : 
68 03 FB 0037 CALLS #3, FILE ERROR : 
50 O1A2 CE «(3C 00378 238 MOVZWL OUTPUT _RAB+34, RO : 0329 | 
01A8 = CE 50 CO 0380 ADDL2 RO, OUTPUT_RAB+40 ; 
B6 11 00385 BRB 1§ ; 0318 
01¢4 CE 9F 00387 248 PUSHAB OUTPUT_FAB > 0335 
000000006 00 oT FB 0 CALLS #1, SYSSCLOSE : 

11 0 3 039 BLBS : | 
01¢4 CE 9F 0039 PUSHAB OUfPUT_FAB ; 0337 | 
01¢8 CE 9F 00399 PUSHAB OUTPUT~FAB : | 

0067105 i DD 00 9 PUSHL #6754396 ; 

68 3 FB OO3A CALLS #3, FILE_ERROR : 

10 AE FEAF CD 9A 00 Ad 258 MOVZBL INPUT_NAM+3, INPUT_RSA_DESC : 0 42 | 

14 AE FE 9 CD po O3AC MOVL NPUT"NAM+4. INPUT"RSA~DESC+4 > 034 | 
08 AE 01 CE 9a 00 °s MOVZBL OUTPUT_NAM+$, OUTPOT_RSA_DESC > 0344 

OC AE 0124 ce D0 0038 VL QUTPUT“NAM#+4, OUTPUT-RSA~DESC+4 > 0345 | 

D 0038 PUSHL FILE STZE ; 0346 | 

o¢ AE 9F 003C PUSHAB OUTPOT_RSA_DESC : 

1 AE 9F 003C¢ PUSHAB INPUT_RSA_DESC F 

0 DD 6 cb PUSHL #3 ; | 

00671061 8F DD 003C PUSHL #6754401 : 

000000006 90 05 FB ce CALLS #5, L1BSS1GNAL : 

0 1 p D MOVL #1. R > 0352 | 

4 00308 RET : | 
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STABACCOP Copy image file for Standalone BACKUP kit 16-Sep-1984 
v04-000 14-Sep-1984 


00: AE AX-11 Bliss-32 V4.0-7 Page 1 
11:54:04 BACKUP. SRCJSTABACCOP. 8 2;1 (3 


; Routine Size: 985 bytes, Routine Base: CODE + 0010 


Copy image file for Standalone BACKUP kit 


ao 


VEuwn—OOoew 


OOoooococcccocoo 
AAO 
SS Senor UN Owe we . 


8096908 NINN NINN NNN SO 


wr 


A.A. AAA AAAI AAAI ANIA WIAA AIA 


CGOOCOCOCCOCOOSOOOooooooooooooooooo 
© 0000900000009 
RANLSSSLEAE 


td prartrirte 


Oo 
w 


LSSeVs 


eeeeenes 
MEW 


18-Sep-19 4 00: 37:8¢ red, Oh ieee V4.0-74 


14-Sep-1984 


BACKUP. SRC JSTABACCOP.B 


ROUTINE FILE_ERROR(MESSAGE ,FAB,FRAB): NOVALUE= 


++ 


FUNCTIONAL DESCRIPTION: 
INPUT PARAMETERS: 
; MESSAGE 


FAB 
FRAB 


' 
; 
' 
i IMPLICIT INPUTS: 
; NONE 

i OUTPUT PARAMETERS: 
; NONE 

1 


IMPLICIT OUTPUTS: 
NONE 


‘ 
i] 
i 
' ROUTINE VALUE: 

: NONE 

i SIDE EFFECTS: 

Message signalled. 
i 


BEGIN 
MAP 
FAB: REF BBLOCK, 
FRAB: REF BBLOCK; 
LOCAL 
NAM: REF BBL OCK. 
DESC: vVECTORC2); 


: Set up the file name descriptor. 


NAM = .FABCFABSL_NAM): 

IF .NAMCNAMSB_RSC) NEQ 0 

THEN “a 

C0] = -NAMENANSB_RSL ; 
CC1) = .NAMLNAMSL “RSA; 


03 = ,NAMCNAMSB_ESLJ; 
1] = :NAMCNAMSL~ESAJ: 


0) = .FABLFABSB_FNS); 


: This routine handles signalling of file-related errors. 


a l 
£ for the file, to obtain the file specification. 
ao = 3; that sustained the error, to obtain 


Pointer to FAB 
Pointer to FAB or RAB 


Pointer to NAM block 
Descriptor for file specification 


$251 


Page 13, 
¥ (4) 


} 
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STABACCOP Copy image file for Standalone BACKUP kit 16-Sep-1984 00:57: AX-11 Bliss-32 V4.0-74 Page 14. 
y04e 005 ° 1o=860=} 382 90:27:62 YBACKUPSRe Stasaceop 68231 (4) | 
> 413 1 DESCL1] = .FABLFABSL_FNA]; | 
: 414 41 END; 
: 415 41 | 
: 416 4) 
3 a tie : Signal the message. | 
: “18 9616 SIGNAL(.MESSAGE, 1, DESC, .FRABCFABSL_STS], .FRABLFABSL_STVJ); | 
; 420 41 END; 
| 
0000 00000 FILE_ERROR: 
-" WORD Save nothing ; 0353) 
5E 08 C3 0000 SUBL2 #8, SP : 
51 08 AC 00 0000 MOVL fF R1 + 0394 
50 28 OAT p0 0009 MOVL 40(R1), NAM : 
03 Aad 95 0000D TSTB = 3(NAM) : 0395 
0B 13 00010 BEQL 1$ : 
6E 03 AO 9A 00012 MOVZBL 3 (NAM), DESC : 0398 
06 AE 04 Ad b0 00016 MOVL 4 (NAM), DESC+4 : 0399 
19 11 00018 BRB 3$ 3 0395 
0B AO 95 0001D 1$: TSTB) =—s- 11 (NAM) + 0401 
0B 13 000 BEQL 2$ : 
6E 0B AO 9A 00022 MOVZBL 11(NAM), DESC + 0404 
04 AE 0C AO DO 00026 MOVL 12(NAM), DESC+4 : 0405 
09 11 00028 BRB 33 : 0401 
6E 34 Ai OA 999 D 28: MOVZBL 52(R1), DESC : 0409 
04 «AE 2C Al 00 00031 MOVL 44(R1), DESC+4 : 0410 
50 OC AC DO 00036 3s: MOVL RAB, RO : 0416 
7E 08 ad 7D 90054 MOVG 8(ROS, -(SP) ; 
08 AE 9F 0003 PUSHAB DESC : 
01 DD 00041 PUSHL #1 : 
000000006 00 Co OS PB B8bee CALS #8. TBSSIGNAL ; 
04 00040 ET : saad 
3; Routine Size: 78 bytes, Routine Base: CODE + 03E9 | 


STABACCOP Copy image file for Standalone BACKUP kit 1b-5¢ Sep-1984 AX-11 Bi iss -32 V4.0 
v04 sin =3ee= 188s 99:80:82 HaXchup She istaanceor 6 
4 041 
058 0219 0 ELuDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
CODE 1079 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
erccecce Symbols -<------- Pages Processing 
File Total Loaded Percent Mapped ime 
-$255$0UA28: CSYSLIBILIB.L32;1 18619 126 0 1000 00:01.9 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:STABACCOP/0BJ=0BJ$:STABACCOP MSRC$:STABACCOP/UPDATE=(ENHS: STABACCOP) 


size: 1063 code + 16 data bytes 
un Time 1.6 


Line 


Flapsed. Time: 01:14:2 


nes/CPU Min: 


162 
yenenes/Pu-me: 35087 


Used: 280 pages 


meme Brg Complete 


188251 


NT CORPORATION 
D PROPRIETARY 


AH-BI13A-SE 
VAX/VMS_ V4.0 


B00 


